1 POKE53280,.:POKE53281,.:FORP=11TO12STEP.5:POKE646,P
2 PRINT"[147][151]                               LUKIAN   "               :NEXT:
3 PRINT"[147][151][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
4 PRINT"[221]    [164][164][164][164]       [164][164][164][164][164][164]                 [221]";
5 PRINT"[221]    [152] ,8 [151]- ODER [152] ,8,1 [151]-FILE-ANHANG     [221]";
6 PRINT"[221]    [163][163][163][163]       [163][163][163][163][163][163]                 [221]";
7 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]";
8 FORT=1TO2000:NEXT:
9 PRINTCHR$(142)"[156][147][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][146]";
10 PRINT"        [155] 1 [146][152]          [218]USATZ ,8,1"
11 PRINT"        [155] 2 [146][152]          [218]USATZ ,8"
12 PRINT"        [155] 3 [146][152]          [196]IRECTORY"
13 PRINT"[156][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
14 PRINTSPC(15)CHR$(14)"[146][206]AMEN DES [198]ILES EINGEBEN,               DAS MIT ";
15 PRINT"EINEM [218]USATZ VER-               SEHEN WERDEN SOLL!":
16 GETA$
17 IFA$="1"THEN GOSUB 22:GOTO9
18 IFA$="2"THEN GOSUB 32:GOTO9
19 IFA$="3"THEN GOSUB 37:GOTO9
20 GOTO 16
21 END
22 PRINTCHR$(142)"[147]            [150] ANHANG: ,8,1             ";
23 INPUT"[146]    PRG-NAME: ";A$
24 IFLEN(A$)>12THENPRINT"[145]                [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:GOTO23
25 Z$=CHR$(160)+CHR$(172)+CHR$(56)+           CHR$(172)+CHR$(49 )+CHR$(58)
26 OPEN1,8,15,"R:"+A$+Z$+"="+A$:CLOSE1
27 RETURN
28 SYS49152
29 OPEN1,8,15:INPUT#1,A,B$,C,D
30 CLOSE1:PRINTA;B$;C;D
31 RETURN
32 PRINTCHR$(142)"[147]            [150] ANHANG:  ,8              [146]";
33 INPUT"     PRG-NAME:";A$
34 Z$=CHR$(160)+CHR$(172)+CHR$(56)+           CHR$(58 )
35 OPEN1,8,15,"R:"+A$+Z$+"="+A$:CLOSE1
36 RETURN
37 POKE53280,10:POKE53281,2
38 PRINTCHR$(142)"[147][150]           DIRECTORY EINLESEN           [155]";:FORT=1TO1500:NEXT
39 OPEN 1,8,0,"$":
40 GET#1,A$,A$
41 GET#1,A$,A$:
42 GET#1,A$,B$:
43 A$=A$+CHR$(0):B$=B$+CHR$(0)
44 BZ=ASC(A$)+ASC(B$)*256
45 IF ST<>0 THEN 51
46 PRINT BZ;
47 GET#1,A$:IF A$=""THEN 49
48 PRINT A$;:GOTO 47
49 PRINT:GETA$:IF A$=""THEN 41
50 GET A$:IF A$=""THEN 50
51 CLOSE1:FORT=1TO2500:NEXT
52 PRINT"[147][144]               (ZUM MENU)               ";
53 PRINT"                   [223][169]                   "
54 PRINT"[155]  [185][185][185][185][185][185][185][185][185][185][185][190][164][164][164][164][164][164][164][164][164][164][164][164][188][146][185][185][185][185][185][185][185][185][185][185][185]  "
55 WAIT197,63:POKE53280,.:POKE53281,.:RETURN
56 END: